#!/usr/bin/perl
print "Hello, World!\n";

perl hello.pl

# هذا تعليق
print "Hello, World!\n";

$name = "Alice";
$age = 25;
$temperature = 36.5;
$is_active = 1;  # 1 للصواب، نص فارغ للخطأ

@fruits = ("apple", "banana", "cherry");
@numbers = (1, 2, 3, 4, 5);

%person = (
    "name" => "John",
    "age" => 30,
    "city" => "New York"
);

# عمليات النصوص
$text = "Perl Programming";
print length($text);        # طول النص
print uc($text);            # التحويل إلى أحرف كبيرة
print lc($text);            # التحويل إلى أحرف صغيرة
print substr($text, 0, 4);  # استخراج جزء من النص

# العمليات الرقمية
$x = 10;
$y = 3;
print $x + $y;    # 13
print $x - $y;    # 7
print $x * $y;    # 30
print $x / $y;    # 3.333...
print $x % $y;    # 1 (الباقي)

@colors = ("red", "green", "blue");

# الوصول إلى عناصر المصفوفة
print $colors[0];     # "red" (استخدم $ للعنصر المفرد)
print $colors[1];     # "green"
print $colors[-1];    # "blue" (آخر عنصر)

# عمليات المصفوفات
push(@colors, "yellow");     # إضافة للنهاية
pop(@colors);                # إزالة من النهاية
shift(@colors);              # إزالة من البداية
unshift(@colors, "purple");  # إضافة للبداية

# دوال المصفوفات
print scalar(@colors);       # عدد العناصر
print $#colors;              # الفهرس الأخير

%student = (
    name => "Alice",
    age => 20,
    major => "Computer Science"
);

# الوصول إلى عناصر الهاش
print $student{"name"};     # "Alice"
print $student{age};        # 20

# عمليات الهاش
$student{"gpa"} = 3.8;     # إضافة زوج مفتاح-قيمة جديد
delete $student{"age"};    # إزالة زوج مفتاح-قيمة

# دوال الهاش
@keys = keys %student;      # الحصول على جميع المفاتيح
@values = values %student;  # الحصول على جميع القيم

$age = 20;
if ($age >= 18) {
    print "Adult\n";
} elsif ($age >= 13) {
    print "Teen\n";
} else {
    print "Child\n";
}

# if بسطر واحد
print "Adult\n" if $age >= 18;

$age = 15;
unless ($age >= 18) {
    print "Not an adult\n";
}

# unless بسطر واحد
print "Not an adult\n" unless $age >= 18;

$count = 0;
while ($count < 5) {
    print "Count: $count\n";
    $count++;
}

for ($i = 0; $i < 5; $i++) {
    print "i = $i\n";
}

@fruits = ("apple", "banana", "cherry");
foreach $fruit (@fruits) {
    print "Fruit: $fruit\n";
}

# استخدام المتغير الافتراضي $_
foreach (@fruits) {
    print "Fruit: $_\n";
}

foreach (1..10) {
    last if $_ == 5;     # الخروج من الحلقة
    next if $_ % 2 == 0; # تخطي الأرقام الزوجية
    print "$_\n";        # الناتج: 1, 3
}

sub greet {
    my $name = shift;
    return "Hello, $name!";
}

# استدعاء الدالة الفرعية
$message = greet("John");
print $message;

sub add_numbers {
    my ($a, $b) = @_;
    return $a + $b;
}

$result = add_numbers(5, 3);
print "Sum: $result\n";

sub greet {
    my ($name, $greeting) = @_;
    $greeting = "Hello" unless defined $greeting;
    return "$greeting, $name!";
}

print greet("Alice");          # "Hello, Alice!"
print greet("Bob", "Hi");      # "Hi, Bob!"

$text = "Hello, World!";

if ($text =~ /Hello/) {
    print "Found 'Hello'\n";
}

# مطابقة غير حساسة لحالة الأحرف
if ($text =~ /world/i) {
    print "Found 'world' (case-insensitive)\n";
}

$text = "I like cats and cats are cute";
$text =~ s/cats/dogs/g;  # استبدال جميع التكرارات
print "$text\n";         # "I like dogs and dogs are cute"

$email = "[email protected]";
if ($email =~ /(\w+)@(\w+\.\w+)/) {
    print "Username: $1\n";      # "user"
    print "Domain: $2\n";        # "example.com"
}

# قراءة الملف بالكامل
open(my $fh, '<', 'example.txt') or die "Cannot open file: $!";
my $content = do { local $/; <$fh> };
close($fh);
print $content;

# قراءة سطر بسطر
open(my $fh, '<', 'example.txt') or die "Cannot open file: $!";
while (my $line = <$fh>) {
    print $line;
}
close($fh);

# الكتابة إلى ملف
open(my $fh, '>', 'output.txt') or die "Cannot open file: $!";
print $fh "Hello, Perl!\n";
close($fh);

# الإضافة إلى ملف
open(my $fh, '>>', 'output.txt') or die "Cannot open file: $!";
print $fh "Appending new content.\n";
close($fh);

$text = "  Perl Programming  ";
print length($text);        # طول النص
print uc($text);            # التحويل إلى أحرف كبيرة
print lc($text);            # التحويل إلى أحرف صغيرة
print substr($text, 0, 4);  # استخراج جزء من النص
print index($text, "Prog"); # إيجاد موضع جزء النص

@numbers = (3, 1, 4, 1, 5, 9, 2);
print join(", ", sort @numbers);      # "1, 1, 2, 3, 4, 5, 9"
print join(", ", reverse @numbers);   # "2, 9, 5, 1, 4, 1, 3"

# تصفية المصفوفة
@filtered = grep { $_ > 3 } @numbers;
print join(", ", @filtered);          # "4, 5, 9"

# تحويل المصفوفة
@doubled = map { $_ * 2 } @numbers;
print join(", ", @doubled);           # "6, 2, 8, 2, 10, 18, 4"

%person = (name => "Alice", age => 25, city => "New York");
@keys = keys %person;      # الحصول على جميع المفاتيح
@values = values %person;  # الحصول على جميع القيم

# التحقق من وجود مفتاح
if (exists $person{age}) {
    print "Age exists\n";
}

use strict;
use warnings;
use Data::Dumper;

%data = (name => "Bob", age => 30);
print Dumper(\%data);  # طباعة هيكل البيانات بشكل جميل

# تثبيت وحدة من CPAN
cpan install JSON

use JSON;

# تحليل JSON
$json_string = '{"name": "Alice", "age": 25}';
$person = decode_json($json_string);
print $person->{name};  # "Alice"

# توليد JSON
$person_hash = { name => "Bob", age => 30 };
$json_output = encode_json($person_hash);
print $json_output;  # {"name":"Bob","age":30}